home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 38
/
Tiger_Disk_038_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
469b
|
14 lines
2 print"[147]"
3 print" hey! [157]";:poke53281,.:
4 fora=1to500:next:print"[154]es [157]";
5 forb=1to500:next:print"ist [157]";
6 forc=1to500:next:print"[129]soweit... [157]";:ti$="000003":wait161,1
9 poke53280,.:poke53281,.:printchr$(147)
10 poke646,int(rnd(0)*15)+1:forc=0to5
11 t$="* hier hat die disk ihr ende ***** ":nextc
12 fori=1to len(t$):print" "chr$(20)tab(6)mid$(t$,i,1):ti$="000004":wait161,1
13 poke53280,2:::::poke53280,0:
15 for p=oto10:nextp:nexti
16 print"[147] [159]c[129]i[158]a[153]o!":
17 poke161,0:poke162,0:wait161,1:goto9